home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / xfcn_cru.sit / Crunch XFCN / background_2777.txt < prev    next >
Text File  |  1988-01-25  |  3KB  |  164 lines
  1. -- background: 2777 from stack: in
  2. -- bmap block id: 2383
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 147 (field)
  9. -- low flags: 81
  10. -- high flags: 0007
  11. -- rect: left=78 top=27 right=80 bottom=146
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 10
  19. -- part name: Antecedent codes
  20.  
  21.  
  22. -- part 148 (field)
  23. -- low flags: 81
  24. -- high flags: 0007
  25. -- rect: left=366 top=27 right=80 bottom=434
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 4
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 10
  33. -- part name: Consequent codes
  34.  
  35.  
  36. -- part 51 (field)
  37. -- low flags: 01
  38. -- high flags: 2007
  39. -- rect: left=391 top=94 right=329 bottom=502
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 9
  45. -- style flags: 0
  46. -- line height: 12
  47. -- part name: Recipient
  48.  
  49.  
  50. -- part 157 (button)
  51. -- low flags: 00
  52. -- high flags: 2002
  53. -- rect: left=0 top=49 right=80 bottom=39
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 20098 / 20098
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Home
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   go home
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 160 (button)
  70. -- low flags: 00
  71. -- high flags: 0002
  72. -- rect: left=473 top=49 right=80 bottom=512
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 2478 / 2478
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Aboutâ•”
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   push card
  84.   visual zoom out
  85.   go to card 1
  86.   set the hilite of bkgnd button id 160 to true
  87.   show card field "About"
  88.   wait until the mouse is down
  89.   wait until the mouse is up
  90.   hide card field "About"
  91.   set the hilite of bkgnd button id 160 to false
  92.   visual zoom in
  93.   pop card
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 163 (button)
  99. -- low flags: 00
  100. -- high flags: A003
  101. -- rect: left=126 top=278 right=308 bottom=227
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Crunch XFCN
  110. ----- HyperTalk script -----
  111. on mouseUp
  112.   set cursor to 4
  113.   put empty into field "recipient" -- to show speed
  114.   put crunch(field "source") into field "recipient"
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 166 (button)
  120. -- low flags: 00
  121. -- high flags: A003
  122. -- rect: left=125 top=244 right=274 bottom=226
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: Crunch Script
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   set cursor to 4
  134.   put empty into field "Recipient"
  135.   put crunch(field "source") into field "recipient"
  136. end mouseUp
  137.  
  138.  
  139. -- Crunch, in script form
  140.  
  141. function crunch afield
  142. put 1 into l
  143. repeat until l > (the number of lines in afield)
  144.   if line l of afield is empty
  145.   then delete line l of afield
  146. else add 1 to l
  147. end repeat
  148. return afield
  149. end crunch
  150.  
  151.  
  152. -- part 167 (field)
  153. -- low flags: 00
  154. -- high flags: 2007
  155. -- rect: left=256 top=94 right=329 bottom=367
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 0
  159. -- font id: 3
  160. -- text size: 9
  161. -- style flags: 0
  162. -- line height: 12
  163. -- part name: Source
  164.